Fix thinko in textsec-url-suspicious-p

* lisp/international/textsec.el (textsec-url-suspicious-p): Don't
bug out on non-HTTP URLs.

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 90c37bf2b3bc2195c034b4760f28fc5ab6ba6a15..4e9fb10ad77f4fef45014f14cc387c29326910fe 100644 (file)
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -372,7 +372,9 @@ and `textsec-name-suspicious-p'."
 If it isn't, return nil.  If it is, return a string explaining the
 potential problem."
   (let ((parsed (url-generic-parse-url url)))
-    (textsec-domain-suspicious-p (url-host parsed))))
+    ;; The URL may not have a domain.
+    (and (url-host parsed)
+         (textsec-domain-suspicious-p (url-host parsed)))))
 
 (provide 'textsec)